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Hey guys, I'm trying to write to an excel file from my program. I have a button and 
a text box. this is what I have in my button_click event. 

Dim G4 As Object 

wb = dlj. Workbooks. Open("tx plan templates.xls") 
wb.Application.Range(G4). Value = txtName.Text 
divisible = True 

If I remove the middle code, the sheet opens up fine. I'm just trying 
to write to a specific cell in the excell sheet. 
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So does anyone know how I can write to a specific cell? 
way off? 
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Here is some code which will do what you want - instead of opening an existing 
excel file - I'm creating one. And then at the end I'm saving it and closing the 
workbook. 



This should get you going. 



Dim oExcel As New Excel.Application 

Dim oWorkbook As Excel. Workbook = oExcel. Workbooks. Add 
oExcel.Visible = True 

oWorkbook. Worksheets. Add() 

Dim xlws As Excel. Worksheet = oWorkbook. Worksheets. Item(1) 

xlws.Range("A1"). Value = TextBoxl .Text 
xlws.SaveAs("C:\test.xls") 
il.Workbooks.Close() 
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Thanks spotty. I'll try it out as soon as I get home! 
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